home *** CD-ROM | disk | FTP | other *** search
- object frmSelectDateRange: TfrmSelectDateRange
- Left = 333
- Top = 135
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Select Date Range'
- ClientHeight = 191
- ClientWidth = 326
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object lblTitle: TEsLabel
- Left = 0
- Top = 0
- Width = 326
- Height = 38
- Align = alTop
- Alignment = taCenter
- Appearance = apCustom
- Caption = 'Select a date range'
- ColorScheme = csCustom
- CustomSettings.ShadowColor = clOlive
- CustomSettings.ShadowDepth = 4
- CustomSettings.ShadowStyle = ssExtrude
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -27
- Font.Name = 'Times New Roman'
- Font.Style = []
- ParentFont = False
- end
- object Label6: TLabel
- Left = 194
- Top = 122
- Width = 22
- Height = 13
- Caption = 'days'
- end
- object Label7: TLabel
- Left = 194
- Top = 86
- Width = 34
- Height = 13
- Caption = 'months'
- end
- object Label8: TLabel
- Left = 200
- Top = 50
- Width = 18
- Height = 13
- Caption = 'and'
- end
- object dtStart: TEsDateEdit
- Left = 97
- Top = 46
- Width = 89
- Height = 21
- EsLabelInfo.OffsetX = 0
- EsLabelInfo.OffsetY = 0
- EsLabelInfo.Visible = False
- PopupCalColors.ActiveDay = clRed
- PopupCalColors.ColorScheme = csWindows
- PopupCalColors.DayNames = clMaroon
- PopupCalColors.Days = clBlack
- PopupCalColors.InactiveDays = clGray
- PopupCalColors.MonthAndYear = clBlue
- PopupCalColors.Weekend = clRed
- PopupCalFont.Charset = DEFAULT_CHARSET
- PopupCalFont.Color = clWindowText
- PopupCalFont.Height = -11
- PopupCalFont.Name = 'MS Sans Serif'
- PopupCalFont.Style = []
- ReadOnly = False
- RequiredFields = [rfMonth, rfDay]
- TabOrder = 0
- TodayString = '/'
- OnExit = dtStartExit
- end
- object dtEnd: TEsDateEdit
- Left = 231
- Top = 46
- Width = 89
- Height = 21
- EsLabelInfo.OffsetX = 0
- EsLabelInfo.OffsetY = 0
- EsLabelInfo.Visible = False
- PopupCalColors.ActiveDay = clRed
- PopupCalColors.ColorScheme = csWindows
- PopupCalColors.DayNames = clMaroon
- PopupCalColors.Days = clBlack
- PopupCalColors.InactiveDays = clGray
- PopupCalColors.MonthAndYear = clBlue
- PopupCalColors.Weekend = clRed
- PopupCalFont.Charset = DEFAULT_CHARSET
- PopupCalFont.Color = clWindowText
- PopupCalFont.Height = -11
- PopupCalFont.Name = 'MS Sans Serif'
- PopupCalFont.Style = []
- ReadOnly = False
- RequiredFields = [rfMonth, rfDay]
- TabOrder = 1
- TodayString = '/'
- end
- object rbBetween: TRadioButton
- Left = 15
- Top = 48
- Width = 74
- Height = 17
- Caption = 'between'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = rbDaysClick
- end
- object rbMonths: TRadioButton
- Left = 15
- Top = 84
- Width = 114
- Height = 17
- Caption = 'during the previous'
- TabOrder = 3
- OnClick = rbDaysClick
- end
- object edMonths: TSpinEdit
- Left = 145
- Top = 81
- Width = 41
- Height = 22
- MaxValue = 12
- MinValue = 1
- TabOrder = 4
- Value = 1
- end
- object rbDays: TRadioButton
- Left = 15
- Top = 120
- Width = 122
- Height = 17
- Caption = 'during the previous'
- TabOrder = 5
- OnClick = rbDaysClick
- end
- object edDays: TSpinEdit
- Left = 145
- Top = 117
- Width = 41
- Height = 22
- MaxValue = 365
- MinValue = 1
- TabOrder = 6
- Value = 1
- end
- object btOK: TButton
- Left = 160
- Top = 160
- Width = 75
- Height = 25
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 7
- OnClick = btOKClick
- end
- object btCancel: TButton
- Left = 245
- Top = 160
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 8
- end
- end
-